home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_49.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.6 KB  |  48 lines

  1. on prepareFrame
  2.   global hyperword, animExists
  3.   set the visible of sprite 120 to 1
  4.   remove_nappi()
  5.   set the directToStage of member "sml_sun" to 0
  6.   set m_name to "_" & hyperword
  7.   if (hyperword = "activer") or (hyperword = "bigbang") or (hyperword = "differe") or (hyperword = "flare") or (hyperword = "fusionr") or (hyperword = "convect") or (hyperword = "convezo") or (hyperword = "lagrang") or (hyperword = "magneti") or (hyperword = "solarsy") or (hyperword = "ultravi") or (hyperword = "wavelen") or (hyperword = "protonp") or (hyperword = "sunsmag") or (hyperword = "heliosp") then
  8.     set animExists to 1
  9.   else
  10.     set the visible of sprite 113 to 0
  11.     set animExists to 0
  12.   end if
  13.   set the locV of sprite 117 to 50
  14.   set the locH of sprite 118 to 69
  15.   if animExists = 0 then
  16.     set the visible of sprite 117 to 0
  17.     set the visible of sprite 118 to 0
  18.     set the visible of sprite 119 to 0
  19.   end if
  20.   if SpriteExists(110) > 0 then
  21.     set the directToStage of member the member of sprite 110 to 0
  22.   end if
  23.   if animExists = 1 then
  24.     set the member of sprite 113 to member m_name of castLib "Encyclopedia"
  25.     set the locH of sprite 113 to 180
  26.     set the locV of sprite 113 to 176
  27.     set the directToStage of member the member of sprite 113 to 0
  28.   end if
  29.   if SpriteExists(110) > 0 then
  30.     set the movieRate of sprite 110 to 0
  31.   end if
  32.   set the member of sprite 112 to member hyperword of castLib "Encyclopedia"
  33. end
  34.  
  35. on exitFrame
  36.   global animExists
  37.   if animExists = 1 then
  38.     set animExists to 200
  39.   end if
  40.   ClrCursorS()
  41.   defaultCursor(103)
  42.   defaultCursor(104)
  43.   defaultCursor(105)
  44.   defaultCursor(106)
  45.   defaultCursor(107)
  46.   KasiCursor(2)
  47. end
  48.